(pascal-indent-declaration): Avoid infinite loop

if edpos is at end of buffer.

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index 2cad0a01afdc0800bf3b894738db9112ab211560..d347461908918c06173832f851a21b5028e573a4 100644 (file)
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -989,7 +989,8 @@ indent of the current line in parameterlist."
        ;; Do lineup
        (setq ind (pascal-get-lineup-indent stpos edpos lineup))
        (goto-char stpos)
-       (while (<= (point) (marker-position edpos))
+       (while (and (<= (point) (marker-position edpos))
+                   (not (eobp)))
          (if (search-forward lineup (pascal-get-end-of-line) 'move)
              (forward-char -1))
          (delete-horizontal-space)